E (SETQ $PRINT-BUDGET-MONTHLY nil) READ (SALARY IN DSK (PRO HE)) READ (ARP81B IN DSK (PRO HE)) BUDGET FIRST-YEAR (ARP811 OUT DSK (PRO HE)) BUDGET SECOND-YEAR (ARP812 OUT DSK (PRO HE))